supplied-by
: perform  ( ad -- ? )  @ ?dup if execute then ;
